home *** CD-ROM | disk | FTP | other *** search
- 1 S$="STANDING ORDER":S2$="SO"
- 2 REM S$="DIRECT DEBIT":S2$="DD"
- 3 PRINT"[147]":GOSUB60000
- 6 DIMSO$(10),SA$(10)
- 7 GOSUB20000
- 10 PRINT"[147]","[157][157][158]CHEQUE BOOK ORGANISER."
- 20 PRINT"[129]OPTIONS: [156]1. [155]ENTER PAY INS"
- 30 PRINT,"[156][157]2. [155]ENTER PAY OUTS"
- 35 PRINT,"[156][157]3. [155]ENTER "S$"S"
- 40 PRINT,"[156][157]4. [155]CHECK STATEMENT"
- 50 PRINT,"[156][157]5. [155]VIEW PAY INS/OUTS LEFT"
- 55 PRINT,"[156][157]6. [155]EDIT PAY INS/OUTS & BALANCE"
- 57 PRINT,"[156][157]7. [155]EDIT "S$"S"
- 60 PRINT,"[156][157]8. [155]SAVE FILE AND END"
- 65 PRINT,"[156][157]9. [155]END"
- 70 GETA$
- 80 A=VAL(A$):IFA<1ORA>9THEN70
- 85 IFNO=NAND(A=1ORA=2)THEN40000
- 86 IFNO+SO>NANDA=3THEN40000
- 90 XT=0:ONAGOTO100,300,4000,500,1000,2000,3000,30000
- 91 PRINT"[158]ARE YOU SURE? ";
- 92 GETA$:IFA$="N"THEN10
- 93 IFA$<>"Y"THEN92
- 94 PRINTA$;:END
- 100 NO=NO+1
- 101 PRINT"[147][129]ENTER PAY INS"
- 102 PRINT"[155]ENTER \0 TO END"
- 105 PRINT"[155]AMOUNT PAID IN:[158] \";:GOSUB12000
- 110 IFB$=""THENNO=NO-1:GOTO10
- 115 A$(NO)="+"+B$
- 120 B$="PAID IN":GOSUB11110:CQ$(NO)=B$
- 130 PRINT:PRINT"[155]DATE ([156]DD[155]/[156]MM[155]/[156]YY[155]):[158] ";:GOSUB10000
- 140 P(NO)=0
- 150 PRINT:PRINT""D$(NO)CQ$(NO)"\"RIGHT$(A$(NO),8)
- 160 PRINT"[158]IS THIS CORRECT?"
- 165 GETA$:IFA$="N"THENPRINT"":GOTO102
- 170 IFA$<>"Y"THEN165
- 180 GOTO100
- 300 NO=NO+1
- 301 PRINT"[147][129]ENTER PAY OUTS"
- 302 PRINT"[155]ENTER \0 TO END"
- 305 PRINT"[155]AMOUNT PAID OUT:[158] \";:GOSUB12000
- 310 IFB$=""THENNO=NO-1:GOTO10
- 315 A$(NO)="-"+B$
- 320 PRINT:PRINT"[155]DATE ([156]DD[155]/[156]MM[155]/[156]YY[155]):[158] ";:GOSUB10000
- 330 PRINT:PRINT"[155]INPUT CHEQUE NUMBER AND/OR DESCRIPTION:[158]":GOSUB11000
- 335 CQ$(NO)=B$
- 340 P(NO)=0
- 350 PRINT:PRINT""D$(NO)CQ$(NO)"\"RIGHT$(A$(NO),8)
- 360 PRINT"[158]IS THIS CORRECT?"
- 365 GETA$:IFA$="N"THENPRINT"":GOTO302
- 370 IFA$<>"Y"THEN365
- 380 GOTO300
- 500 PRINT"[147][129]CHECK STATEMENT":BA=BZ
- 501 IFNO=0THENPRINT"[158]NO TRANSACTIONS RECORDED.":GOSUB15000
- 502 IFNO=0THENPRINT"[159]BALANCE: \"BA$:PRINT"[158]PRESS ANY KEY."
- 503 IFNO=0THENPOKE198,0:WAIT198,1:POKE198,0:GOTO10
- 504 M2=0
- 505 PRINT"[154][164][164] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] [164][164][164][164][164][164] [164][164][164][164][164]"
- 510 PRINT"MOCQ NO/DESCRIPTIONCREDITDEBIT"
- 512 GOSUB16000
- 515 J=1:M=0
- 516 FORI=1TONO:P(I)=0:NEXT
- 520 PRINT"[152]"
- 521 FORI=JTOJ+9
- 525 IFI>NO THENPRINT" ":GOTO550
- 526 IFP(I)>0THENPRINT"";
- 530 IFLEFT$(A$(I),1)="+"THENPRINTMID$(D$(I),4,2)CQ$(I)RIGHT$(A$(I),8)" "
- 540 IFLEFT$(A$(I),1)="-"THENPRINTMID$(D$(I),4,2)CQ$(I)" "RIGHT$(A$(I),8)
- 550 NEXT
- 551 PRINT" ":PRINT"[145][158]";
- 552 IFJ+9<NO THENPRINT"+[146] FOR NEXT PAGE ";
- 553 IFJ<>1THENPRINT"-[146] FOR PREVIOUS PAGE";
- 554 PRINT
- 560 P=J:PRINT"[158]";:GOSUB570:GOTO600
- 570 PRINT""
- 580 FORI=1TOP-J+1:PRINT:NEXT
- 585 IFP(P)>0THENPRINT"";
- 590 IFLEFT$(A$(P),1)="+"THENPRINTMID$(D$(P),4,2)CQ$(P)RIGHT$(A$(P),8)" "
- 594 IFLEFT$(A$(P),1)="-"THENPRINTMID$(D$(P),4,2)CQ$(P)" "RIGHT$(A$(P),8)
- 595 GOSUB15000
- 596 PRINT"",,"[159]BALANCE:\"BA$
- 597 IFBA=BZTHENPRINT,,"FROM LAST STATEMENT":RETURN
- 598 PRINT,," ":RETURN
- 599 GOSUB570
- 600 P1=P
- 610 GETA$:IFA$=""THEN610
- 620 IFA$=" "ANDP(P)=0THENM=M+1:P(P)=M:PRINT"[158]";:M2=M2+1:BA=BA+VAL(A$(P)):GOTO599
- 625 IFA$=" "THENP(P)=0:PRINT"[158]";:M2=M2-1:BA=BA-VAL(A$(P)):GOTO599
- 627 IFA$=""ANDP=NO THEN610
- 630 IFA$=""ANDP<J+9THENPRINT"[152]";:GOSUB570:P=P+1:PRINT"[158]";:GOTO599
- 640 IFA$="[145]"ANDP>JTHENPRINT"[152]";:GOSUB570:P=P-1:PRINT"[158]";:GOTO599
- 650 IFA$="+"ANDJ+9<NO THENJ=J+10:GOTO520
- 660 IFA$="-"ANDJ>1THENJ=J-10:GOTO520
- 670 IFA$="Q"THEN10
- 680 IFA$=CHR$(13)ANDM2>0THEN700
- 690 GOTO610
- 700 PRINT"[147][129]BALANCE OK":GOSUB595:PRINT"[158]ARE YOU SURE?";
- 701 GETA$:IFA$="N"THEN500
- 702 IFA$<>"Y"THEN701
- 704 PRINTA$:PRINT"DO YOU REQUIRE A PRINTED STATEMENT? ";:BX=BA
- 705 GETA$:IFA$="N"THENPRINTA$:GOTO900
- 710 IFA$<>"Y"THEN705
- 720 PRINTA$:PRINT"TURN ON PRINTER AND PRESS A KEY"
- 730 GETA$:IFA$=""THEN730
- 735 PRINT"[129]INPUT STATEMENT NUMBER: ";:GOSUB12000:PRINT
- 740 OPEN4,4:PRINT#4
- 750 PRINT#4,"CHEQUE BOOK STATEMENT NUMBER:"LEFT$(B$,5)
- 755 PRINT#4
- 762 BN$=BA$:BA=BZ:GOSUB15000
- 765 PRINT#4,"PREVIOUS BALANCE: \"BA$
- 770 PRINT#4
- 775 PRINT#4,"DATE CQ NO/DESCRIPTION CREDIT DEBIT"
- 780 FORI=1TOM
- 785 F=0
- 790 FORJ=1TONO:IFP(J)=ITHENF=J
- 795 NEXT
- 800 IFF=0THEN830
- 810 IFLEFT$(A$(F),1)="+"THENPRINT#4,D$(F)CQ$(F)RIGHT$(A$(F),8)
- 820 IFLEFT$(A$(F),1)="-"THENPRINT#4,D$(F)CQ$(F)" "RIGHT$(A$(F),8)
- 830 NEXT
- 840 PRINT#4
- 850 PRINT#4," NEW BALANCE: \"BN$
- 860 CLOSE4
- 900 F=0
- 901 FORJ=1TONO:IFP(J)<>0THEN920
- 910 F=F+1:CQ$(F)=CQ$(J)
- 911 D$(F)=D$(J)
- 912 A$(F)=A$(J)
- 913 P(F)=0
- 920 NEXT
- 929 PRINT"[155]":IFF=0THENPRINT"0 ITEMS LEFT":GOTO940
- 930 PRINT"YOU STILL HAVE"F"ITEMS LEFT"
- 940 NO=F
- 950 PRINT" IN THE CHEQUE BOOK."
- 955 BZ=BX
- 960 PRINT"[158]PRESS A KEY TO RETURN TO MENU"
- 970 POKE198,0:WAIT198,1:POKE198,0:GOTO10
- 1000 PRINT"[147][129]VIEW PAY IN/OUTS":BA=BZ
- 1001 IFNO=0THENPRINT"[158]NO TRANSACTIONS RECORDED.":GOSUB15000
- 1002 IFNO=0THENPRINT"[159]BALANCE: \"BA$:PRINT"[158]PRESS ANY KEY."
- 1003 IFNO=0THENPOKE198,0:WAIT198,1:POKE198,0:GOTO10
- 1005 PRINT"[154][164][164] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] [164][164][164][164][164][164] [164][164][164][164][164]"
- 1010 PRINT"MOCQ NO/DESCRIPTIONCREDITDEBIT"
- 1012 GOSUB16100
- 1013 GOSUB15000
- 1014 PRINT"",,"[157][159]STAT BAL:\"BA$
- 1015 FORI=1TONO:BA=BA+VAL(A$(I)):NEXT
- 1016 GOSUB15000
- 1017 PRINT,,"ACC BAL:\"BA$
- 1018 CB$=BA$:BA=BZ
- 1019 J=1
- 1020 PRINT"[152]"
- 1021 FORI=JTOJ+9
- 1025 IFI>NO THENPRINT" ":GOTO1050
- 1030 IFLEFT$(A$(I),1)="+"THENPRINTMID$(D$(I),4,2)CQ$(I)RIGHT$(A$(I),8)" "
- 1040 IFLEFT$(A$(I),1)="-"THENPRINTMID$(D$(I),4,2)CQ$(I)" "RIGHT$(A$(I),8)
- 1050 NEXT
- 1051 PRINT" ":PRINT"[145][158]";
- 1052 IFJ+9<NO THENPRINT"+[146] FOR NEXT PAGE ";
- 1053 IFJ<>1THENPRINT"-[146] FOR PREVIOUS PAGE";
- 1054 PRINT
- 1110 GETA$:IFA$=""THEN1110
- 1130 IFA$="P"THEN1200
- 1150 IFA$="+"ANDJ+9<NO THENJ=J+10:GOTO1020
- 1160 IFA$="-"ANDJ>1THENJ=J-10:GOTO1020
- 1170 IFA$="Q"THEN10
- 1190 GOTO1110
- 1200 PRINT"[147][129]PRINT":PRINT"[158]ARE YOU SURE?"
- 1201 GETA$:IFA$="N"THEN1000
- 1202 IFA$<>"Y"THEN1201
- 1220 PRINT"[147]TURN ON PRINTER AND PRESS A KEY"
- 1230 GETA$:IFA$=""THEN1230
- 1240 OPEN4,4:PRINT#4
- 1250 PRINT#4,"CHEQUE BOOK (OUTSTANDING)"
- 1255 PRINT#4
- 1262 BA=BZ:GOSUB15000
- 1265 PRINT#4,"LAST STATEMENT BALANCE: \"BA$
- 1267 PRINT#4," ACCOUNT BALANCE: \"CB$
- 1270 PRINT#4
- 1275 PRINT#4,"DATE CQ NO/DESCRIPTION CREDIT DEBIT"
- 1290 FORI=1TONO
- 1310 IFLEFT$(A$(I),1)="+"THENPRINT#4,D$(I)CQ$(I)RIGHT$(A$(I),8)
- 1320 IFLEFT$(A$(I),1)="-"THENPRINT#4,D$(I)CQ$(I)" "RIGHT$(A$(I),8)
- 1330 NEXT
- 1340 PRINT#4
- 1360 CLOSE4
- 1370 GOTO1000
- 2000 PRINT"[147][129]EDIT PAY INS/OUTS":PRINT"AND BALANCE":BA=BZ
- 2001 IFNO=0THENPRINT"[158]NO TRANSACTIONS RECORDED.":GOSUB15000
- 2002 IFNO=0THENPRINT"[159]BALANCE: \"BA$:PRINT"[158]PRESS ANY KEY."
- 2003 IFNO=0THENPOKE198,0:WAIT198,1:POKE198,0:GOTO10
- 2005 PRINT"[154][164][164] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] [164][164][164][164][164][164] [164][164][164][164][164]"
- 2010 PRINT"MOCQ NO/DESCRIPTIONCREDITDEBIT"
- 2012 GOSUB16200
- 2015 J=1
- 2016 FORI=1TONO:P(I)=0:NEXT
- 2020 PRINT"[152]"
- 2021 FORI=JTOJ+9
- 2025 IFI>NO THENPRINT" ":GOTO2050
- 2026 IFP(I)>0THENPRINT"";
- 2030 IFLEFT$(A$(I),1)="+"THENPRINTMID$(D$(I),4,2)CQ$(I)RIGHT$(A$(I),8)" "
- 2040 IFLEFT$(A$(I),1)="-"THENPRINTMID$(D$(I),4,2)CQ$(I)" "RIGHT$(A$(I),8)
- 2050 NEXT
- 2051 PRINT" ":PRINT"[145][158]";
- 2052 IFJ+9<NO THENPRINT"+[146] FOR NEXT PAGE ";
- 2053 IFJ<>1THENPRINT"-[146] FOR PREVIOUS PAGE";
- 2054 PRINT
- 2060 P=J:PRINT"[158]";:GOSUB570:GOTO2100
- 2099 GOSUB570
- 2100 P1=P
- 2110 GETA$:IFA$=""THEN2110
- 2127 IFA$=""ANDP=NO THEN2110
- 2130 IFA$=""ANDP<J+9THENPRINT"[152]";:GOSUB570:P=P+1:PRINT"[158]";:GOTO2099
- 2140 IFA$="[145]"ANDP>JTHENPRINT"[152]";:GOSUB570:P=P-1:PRINT"[158]";:GOTO2099
- 2150 IFA$="+"ANDJ+9<NO THENJ=J+10:GOTO2020
- 2160 IFA$="-"ANDJ>1THENJ=J-10:GOTO2020
- 2170 IFA$="Q"THEN10
- 2175 IFA$="B"THENPRINT"[147]":GOSUB596:GOSUB21020:GOTO2000
- 2180 IFA$=CHR$(13)THEN2300
- 2190 GOTO2110
- 2200 PRINT"[147][156]1.[158] DATE: [159]"D$(P)
- 2210 PRINT"[156]2.[158] DISCRIPTION:[159]"CQ$(P)
- 2220 PRINT"[156]3.[158] AMOUNT: [159]\"RIGHT$(A$(P),8)
- 2222 A$=LEFT$(A$(P),1)
- 2224 IFA$="-"THENA$="D"
- 2226 IFA$="+"THENA$="C"
- 2230 PRINT"[156]4.[158] C[146]REDIT/D[146]EBIT:[159] "A$
- 2240 RETURN
- 2300 GOSUB2200
- 2310 PRINT"[129]D[146]ELETE, E[146]DIT OR Q[146]UIT"
- 2320 GETA$:IFA$="Q"THEN2000
- 2330 IFA$="D"THEN2600
- 2340 IFA$<>"E"THEN2320
- 2350 GOSUB2200
- 2360 PRINT"[129]1[146],2[146],3[146],4[146] OR Q[146]UIT"
- 2370 GETA$:IFA$="Q"THEN2000
- 2380 A=VAL(A$):IFA=0ORA>4THEN2370
- 2390 ONAGOTO2400,2430,2460,2490
- 2400 TE=NO:NO=P:T$=D$(P)
- 2405 PRINT"[158]NEW DATE:[155]";:GOSUB10000
- 2410 PRINT:PRINT"[158]OK (Y/N)?":NO=TE
- 2420 GETA$:IFA$="N"THEND$(P)=T$:GOTO2350
- 2423 IFA$<>"Y"THEN2420
- 2426 GOTO2350
- 2430 PRINT"[158]NEW DESC:[155]";:GOSUB11000
- 2440 PRINT:PRINT"[158]OK (Y/N)?"
- 2445 GETA$:IFA$="N"THEN2350
- 2450 IFA$<>"Y"THEN2445
- 2455 CQ$(P)=B$:GOTO2350
- 2460 PRINT"[158]NEW AMOUNT:[155]\";:GOSUB12000
- 2470 PRINT:PRINT"[158]OK (Y/N)?"
- 2475 GETA$:IFA$="N"THEN2350
- 2480 IFA$<>"Y"THEN2475
- 2485 A$(P)=LEFT$(A$(P),1)+B$:GOTO2350
- 2490 PRINT"[158]CREDIT/DEBIT:[155]";
- 2500 GETA$:IFA$="C"THENB$="+":GOTO2520
- 2510 IFA$<>"D"THEN2500
- 2515 B$="-"
- 2520 PRINTA$
- 2530 PRINT"[158]OK (Y/N)?"
- 2540 GETA$:IFA$="N"THEN2350
- 2550 IFA$<>"Y"THEN2540
- 2560 A$(P)=B$+RIGHT$(A$(P),8):GOTO2350
- 2600 PRINT"[158]SURE (Y/N)?"
- 2610 GETA$:IFA$="N"THEN2300
- 2620 IFA$<>"Y"THEN2610
- 2630 FORI=P+1TONO
- 2640 CQ$(I-1)=CQ$(I)
- 2650 D$(I-1)=D$(I)
- 2660 A$(I-1)=A$(I)
- 2670 NEXT
- 2675 CQ$(NO)="":A$(NO)="":D$(NO)=""
- 2680 NO=NO-1
- 2690 GOTO2000
- 3000 PRINT"[147][129]EDIT "S$"S"
- 3005 PRINT"[154][164][164] [164][164][164][164][164][164][164][164][164][164][164][164][164][164] [164][164][164][164][164]"
- 3010 PRINT"NO"S2$" DESCRIPTIONDEBIT"
- 3012 GOSUB16300
- 3020 PRINT"[152]"
- 3021 FORI=1TO10:B$=RIGHT$(STR$(I),2)
- 3030 PRINTB$SO$(I)RIGHT$(SA$(I),8)
- 3050 NEXT
- 3060 P=1:PRINT"[158]";:GOSUB3070:GOTO3100
- 3070 PRINT""
- 3080 FORI=1TOP:PRINT:NEXT
- 3090 PRINT""SO$(P)RIGHT$(SA$(P),8)
- 3095 RETURN
- 3099 GOSUB3070
- 3100 P1=P
- 3110 GETA$:IFA$=""THEN3110
- 3115 IFSO=0THEN3180
- 3127 IFA$=""ANDP=SOTHEN3110
- 3130 IFA$=""THENPRINT"[152]";:GOSUB3070:P=P+1:PRINT"[158]";:GOTO3099
- 3140 IFA$="[145]"ANDP>1THENPRINT"[152]";:GOSUB3070:P=P-1:PRINT"[158]";:GOTO3099
- 3170 IFA$=CHR$(13)THEN3300
- 3180 IFA$="Q"THEN10
- 3185 IFA$="P"THEN3700
- 3190 IFA$="A"ANDSO<10THEN3200
- 3195 GOTO3100
- 3200 PRINT"[147][129]ADD "S$:PRINT
- 3205 SO=SO+1
- 3210 PRINT"[155]ENTER \0 TO END"
- 3212 PRINT"[155]AMOUNT PAID OUT:[158] \";:GOSUB12000
- 3214 IFB$=""THENSO$(SO)="":SA$(SO)="":SO=SO-1:GOTO3000
- 3215 SA$(SO)="-"+B$
- 3230 PRINT:PRINT"[155]INPUT DESCRIPTION:[158]":GOSUB11000
- 3235 SO$(SO)=CHR$(160)+S2$+LEFT$(B$,18)
- 3250 PRINT:PRINT""SO$(SO)" \"RIGHT$(SA$(SO),8)
- 3260 PRINT"[158]IS THIS CORRECT?"
- 3265 GETA$:IFA$="N"THENPRINT"":GOTO3210
- 3270 IFA$<>"Y"THEN3265
- 3275 IFSO<10THEN3200
- 3280 GOTO3000
- 3300 GOSUB3310:GOTO3350
- 3310 PRINT"[147][156]1.[158] DISCRIPTION:[159]"SO$(P)
- 3320 PRINT"[156]2.[158] AMOUNT: [159]\"RIGHT$(SA$(P),8)
- 3330 RETURN
- 3350 PRINT"[129]D[146]ELETE, E[146]DIT OR Q[146]UIT"
- 3360 GETA$:IFA$="Q"THEN3000
- 3370 IFA$="D"THEN3500
- 3380 IFA$<>"E"THEN3360
- 3390 GOSUB3310
- 3395 PRINT"[129]1[146],2[146] OR Q[146]UIT"
- 3400 GETA$:IFA$="Q"THEN3000
- 3410 A=VAL(A$):IFA=0ORA>2THEN3400
- 3420 ONAGOTO3430,3460
- 3430 PRINT"[158]NEW DESC:[155]";:GOSUB11000
- 3440 PRINT:PRINT"[158]OK (Y/N)?"
- 3445 GETA$:IFA$="N"THEN3390
- 3450 IFA$<>"Y"THEN3445
- 3455 SO$(P)=CHR$(160)+S2$+LEFT$(B$,18):GOTO3390
- 3460 PRINT"[158]NEW AMOUNT:[155]\";:GOSUB12000
- 3470 PRINT:PRINT"[158]OK (Y/N)?"
- 3475 GETA$:IFA$="N"THEN3390
- 3480 IFA$<>"Y"THEN3475
- 3485 SA$(P)="-"+B$:GOTO3390
- 3500 PRINT"[158]SURE (Y/N)?"
- 3510 GETA$:IFA$="N"THEN3300
- 3520 IFA$<>"Y"THEN3510
- 3530 FORI=P+1TOSO
- 3540 SO$(I-1)=SO$(I)
- 3550 SA$(I-1)=SA$(I)
- 3570 NEXT
- 3575 SO$(SO)="":SA$(SO)=""
- 3580 SO=SO-1
- 3590 GOTO3000
- 3700 PRINT"[147][129]PRINT":PRINT"[158]ARE YOU SURE?"
- 3701 GETA$:IFA$="N"THEN3000
- 3702 IFA$<>"Y"THEN3701
- 3720 PRINT"[147]TURN ON PRINTER AND PRESS A KEY"
- 3730 GETA$:IFA$=""THEN3730
- 3740 OPEN4,4:PRINT#4
- 3750 PRINT#4,S$"S"
- 3755 PRINT#4
- 3770 PRINT#4," "S2$"DESCRIPTION AMOUNT"
- 3790 FORI=1TOSO
- 3795 PRINT#4,SO$(I)RIGHT$(SA$(I),8)
- 3800 NEXT
- 3810 PRINT#4:CLOSE4:GOTO3000
- 4000 PRINT"[147][129]ENTER "S$"S"
- 4001 IFSO=0THENPRINT"[158]NO "S$"S TO ENTER."
- 4002 IFSO=0THENPRINT"PRESS A KEY."
- 4003 IFSO=0THENPOKE198,0:WAIT198,1:POKE198,0:GOTO10
- 4010 PRINT"[158]ARE YOU SURE?";
- 4020 GETA$:IFA$="N"THEN10
- 4030 IFA$<>"Y"THEN4020
- 4040 PRINTA$
- 4050 XX=NO:NO=0
- 4060 PRINT"[155]DATE ([156]DD[155]/[156]MM[155]/[156]YY[155]):[158] ";:GOSUB10000
- 4070 NO=XX
- 4080 PRINT:PRINT"[159]CORRECT?";
- 4090 GETA$:IFA$="N"THEN4040
- 4095 IFA$<>"Y"THEN4090
- 4100 FORI=1TOSO
- 4110 D$(NO+I)=D$(0)
- 4120 CQ$(NO+I)=SO$(I)
- 4130 A$(NO+I)=SA$(I)
- 4140 NEXT
- 4150 NO=NO+SO:GOTO10
- 9999 END
- 10000 REM DATE INPUT
- 10010 D$(NO)=""
- 10020 GETA$:IFA$=""THEN10020
- 10021 IFA$=CHR$(13)ANDLEN(D$(NO))=8THENRETURN
- 10022 IFA$=CHR$(20)ANDLEN(D$(NO))>0THEN10080
- 10025 IFLEN(D$(NO))=8THEN10020
- 10029 IFA$="0"THEN10040
- 10030 IFVAL(A$)<1THEN10020
- 10040 IFLEN(D$(NO))=0ANDVAL(A$)>3THEN10020
- 10041 IFD$(NO)="3"ANDVAL(A$)>1THEN10020
- 10042 IFD$(NO)="0"ANDVAL(A$)=0THEN10020
- 10043 IFLEN(D$(NO))=3ANDVAL(A$)>1THEN10020
- 10044 IFMID$(D$(NO),4,1)="1"ANDLEN(D$(NO))=4ANDVAL(A$)>2THEN10020
- 10045 IFMID$(D$(NO),4,1)="0"ANDLEN(D$(NO))=4ANDVAL(A$)=0THEN10020
- 10050 IFLEN(D$(NO))=1THENA$=A$+"/"
- 10060 IFLEN(D$(NO))=4THENA$=A$+"/"
- 10065 D$(NO)=D$(NO)+A$:PRINTA$;
- 10070 GOTO10020
- 10080 L=1:IFLEN(D$(NO))=3THENL=2
- 10085 IFLEN(D$(NO))=6THENL=2
- 10090 D$(NO)=LEFT$(D$(NO),LEN(D$(NO))-L)
- 10100 PRINT"[157] [157]";:IFL=2THENPRINT"[157] [157]";
- 10110 GOTO10020
- 11000 REM TEXT INPUT
- 11010 B$="":L=0:S=1
- 11020 GETA$:IFA$=""THEN11020
- 11025 IFA$=CHR$(13)THEN11110
- 11030 IFA$=CHR$(20)ANDL>0THEN11100
- 11040 IFL=19THEN11020
- 11042 IFA$=" "ANDS=1THEN11020
- 11045 IFA$=" "ORA$="!"THEN11060
- 11050 IFA$<"#"ORA$>"_"THEN10020
- 11060 S=0:IFA$=" "THENS=1
- 11065 B$=B$+A$:L=L+1:PRINTA$;:GOTO11020
- 11100 S=0:PRINT"[157] [157]";:L=L-1:B$=LEFT$(B$,L):GOTO11020
- 11110 B$=CHR$(160)+B$
- 11115 IFLEN(B$)<21THENB$=B$+" ":GOTO11115
- 11120 RETURN
- 12000 REM VALUE INPUT
- 12010 B$="":L=0
- 12020 GETA$:IFA$=""THEN12020
- 12025 IFA$=CHR$(13)ANDL=0THENB$="0.00":GOTO12400
- 12030 IFA$=CHR$(13)THENB$=B$+".00":GOTO12400
- 12040 IFA$=CHR$(20)ANDL>0THEN12100
- 12045 IFA$="."ANDL=0THENA$="0.":L=1:GOTO12200
- 12050 IFA$="."THEN12200
- 12060 IFL=5THEN12020
- 12065 IFB$="0"THEN12020
- 12070 IFA$="0"THEN12080
- 12075 IFVAL(A$)=0THEN12020
- 12080 PRINTA$;:B$=B$+A$:L=L+1:GOTO12020
- 12100 L=L-1:PRINT"[157] [157]";:B$=LEFT$(B$,L):GOTO12020
- 12200 L=L+1:B$=B$+A$:L1=0:C$="":PRINTA$;
- 12210 GETA$:IFA$=""THEN12210
- 12220 IFVAL(B$)=0ANDA$=CHR$(13)THENGOTO12405
- 12230 IFA$=CHR$(13)ANDL1=2THENB$=B$+C$:GOTO12400
- 12240 IFA$=CHR$(20)ANDL1>0THEN12300
- 12245 IFA$=CHR$(20)THEN12100
- 12260 IFL1=2THEN12210
- 12270 IFA$="0"THEN12280
- 12275 IFVAL(A$)=0THEN12210
- 12280 PRINTA$;:C$=C$+A$:L1=L1+1:GOTO12210
- 12300 L1=L1-1:PRINT"[157] [157]";:C$=LEFT$(C$,L1):GOTO12210
- 12400 IFLEN(B$)<8THENB$=" "+B$:GOTO12400
- 12405 IFVAL(B$)=0THENB$=""
- 12410 RETURN
- 15000 REM PRINT BALANCE
- 15010 B$=STR$(ABS(BA*100)):B$=RIGHT$(B$,LEN(B$)-1)
- 15015 IFLEN(B$)<3THENBA$="0":GOTO15030
- 15020 BA$=LEFT$(B$,LEN(B$)-2)
- 15030 BA$=BA$+"."
- 15040 IFLEN(B$)=1THENBA$=BA$+"0"+B$:GOTO15050
- 15045 BA$=BA$+RIGHT$(B$,2)
- 15050 IFLEN(BA$)<8THENBA$=" "+BA$:GOTO15050
- 15055 IFB$="0"THENB$=" ":GOTO15080
- 15060 B$=" C"
- 15070 IFBA<>ABS(BA)THENB$=" D"
- 15080 BA$=BA$+B$
- 15095 RETURN
- 16000 REM PRINT INFO
- 16010 PRINT"[158]SPACE[146] TO INCLUDE ON STATEMENT"
- 16020 PRINT"RETURN[146] WHEN BALANCE AGREES"
- 16025 PRINT"USE CRSR UP/DOWN TO MOVE LINE
- 16030 [153]"QWAIT TO RETURN TO MENU"
- 16040 [142]
- 16100 [143] PRINT INFO 2
- 16110 [153]"SYSPWAIT TO PRINTOUT INFO":[137]16030
- 16200 [143] PRINT INFO 3
- 16210 [153]"SYSRETURNWAIT TO EDIT LINE"
- 16220 [153]"BWAIT TO EDIT LAST STATEMENT BALANCE"
- 16230 [137]16025
- 16300 [143] PRINT INFO 4
- 16310 [153]"":[139]SO[178]0[167][153]:[153]
- 16315 [153]"SYSAWAIT TO ADD "S$
- 16320 [139]SO[177]0[167][153]"RETURNWAIT TO EDIT LINE"
- 16325 [153]"PWAIT TO PRINT "S$"S"
- 16330 [139]SO[177]0[137]16025
- 16335 [137]16030
- 17000 [143] ERROR
- 17010 [132]15,E1$,E2$,E3$,E4$
- 17020 [142]
- 20000 [143] LOAD DATA
- 20005 [153]"LOADRETURNSYSSEARCHING FOR CHEQUE DATA"
- 20010 [159]15,8,15,"I0"
- 20020 [159]5,8,5,"CHEQUE DATA,S,R"
- 20030 [141]17000
- 20040 [139][197](E1$)[177]0[167]21000
- 20045 [153]"LOADING"
- 20050 [132]5,BZ
- 20055 [132]5,N:[141]22000
- 20060 [132]5,NO
- 20070 [139]NO[178]0[167]20102
- 20080 [129]I[178]1[164]NO
- 20090 [132]5,CQ$(I)
- 20092 [132]5,D$(I)
- 20094 [132]5,A$(I)
- 20100 [130]
- 20102 [132]5,SO
- 20104 [139]SO[178]0[167]20120
- 20106 [129]I[178]1[164]SO
- 20110 [132]5,SO$(I)
- 20112 [132]5,SA$(I)
- 20114 [130]
- 20120 [160]5:[160]15
- 20130 [142]
- 21000 [153]"CLRERROR:OPEN"E1$" "E2$" "E3$" "E4$
- 21010 [160]5:[160]15
- 21015 N[178]50:[141]22000
- 21020 [153]"SYSSET UP BALANCE: \";:[141]12000
- 21030 BZ[178][197](B$):[153]
- 21035 [139]BZ[178]0[167]A$[178]"ON":[137]21060
- 21040 [153]"CREDIT OR DEBIT (C/D)? ";
- 21050 [161]A$:[139]A$[178]"C"[167]21060
- 21055 [139]A$[179][177]"D"[167]21050
- 21056 BZ[178][171]BZ
- 21060 [153]A$:[153]"LISTIS THIS OK? ";
- 21070 [161]A$:[139]A$[178]"Y"[167][142]
- 21080 [139]A$[179][177]"N"[167]21070
- 21090 [153]A$"":[137]21020
- 22000 [134]CQ$(N[170]1),D$(N[170]1),A$(N[170]1),P(N[170]1):[142]
- 30000 [153]"LOADFORSAVE AND END"
- 30001 [153]"SYSARE YOU SURE?"
- 30002 [161]A$:[139]A$[178]"N"[167]10
- 30003 [139]A$[179][177]"Y"[167]30002
- 30005 [153]"LOADSYSSAVING CHEQUE DATA"
- 30010 [159]15,8,15,"I0"
- 30020 [152]15,"S0:CHEQUE DATA"
- 30030 [159]5,8,5,"CHEQUE DATA,S,W"
- 30040 [141]17000
- 30050 [139][197](E1$)[177]0[167]31000
- 30060 R$[178][199](13):[152]5,BZ;R$;
- 30065 [152]5,N;R$;
- 30070 [152]5,NO;R$;
- 30075 [139]NO[178]0[167]30102
- 30080 [129]I[178]1[164]NO
- 30090 [152]5,CQ$(I)R$;
- 30092 [152]5,D$(I)R$;
- 30094 [152]5,A$(I)R$;
- 30100 [130]
- 30102 [152]5,SO;R$;
- 30104 [139]SO[178]0[167]30120
- 30106 [129]I[178]1[164]SO
- 30110 [152]5,SO$(I);R$;
- 30112 [152]5,SA$(I);R$;
- 30114 [130]
- 30120 [160]5:[160]15
- 30125 [139]XT[178]1[167]40100
- 30130 [128]
- 31000 [153]"CLRERROR:OPEN"E1$" "E2$" "E3$" "E4$
- 31010 [153]"SYSPRESS ANY KEY TO RE-SAVE"
- 31020 [151]198,0:[146]198,1:[151]198,0
- 31030 [137]30000
- 40000 [153]"LOADSYSTHERE IS NOT ENOUGH ROOM TO STORE ANY","MORE TRANSACTIONS."
- 40010 [153]"CREATING SPACE FOR 10 MORE."
- 40020 N[178]N[170]10
- 40030 [153]"LISTYOU MUST NOW SAVE CHEQUE DATA."
- 40040 [153]"PRESS ANY KEY TO DO SO."
- 40050 [151]198,0:[146]198,1:[151]198,0
- 40070 XT[178]1:[137]30000
- 40080 [153]"LISTNOW PRESS A KEY TO RE-LOAD DATA."
- 40090 [151]198,0:[146]198,1:[151]198,0
- 40100 [138]
- 60000 [151]53280,0:[151]53281,0:[153]"LOADRETURN":[151]198,0
- 60001 [153],"CMDSYSNEWRNDRNDRNDNEWRNDNEWRND***NEW*NEW*NEW*NEW**"
- 60002 [153],"CMDGETLOGWAITGETLOGWAITGETGETGETGETGETWAITRNDGETSINGETGETGETGETGETSIN"
- 60003 [153],"CMDLOGWAITRNDGETGETLOGWAITRNDLOGLOGGETCOSGETWAITNEWGETCOSGETCOSGETCOSGETGET"
- 60004 [153],"NEWRNDNEWRNDNEWRNDNEWRNDRND***NEW*NEW*NEW"
- 60005 [153],"GETGETLOGWAITGETGETLOGWAITGET*COSGETGETWAITNEWGETWAITRNDGETCOS"
- 60006 [153],"LOGWAITGET*WAITRNDLOGWAITGETGETGETGETGETGETWAIT*COSGETWAITNEWGETWAITSIN"
- 60007 [153],"CONT*NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWRND"
- 60008 [153],"GETWRITTEN BYWAITGET"
- 60009 [153],"LOGNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITCOSSYS"
- 60010 [153],"CMDCMDCMDNEWRNDNEWRNDNEWRNDNEWRNDNEWRNDRNDRNDNEWRNDRNDNEWRNDRNDRNDRNDRNDRND"
- 60011 [153],"CMDCMDCMDLOGWAITGETLOGGETLOGLOGWAITGETGETRNDGETLOGWAITGETGETLOGWAITGETGETGETGET"
- 60012 [153],"CMDCMDCMDGETLOGWAITRNDGETLOGWAITRND*WAITRNDLOGWAITSINGETLOGWAITRNDGETLOGWAITGETGETGETGETLOGWAITRNDLOGWAITRND"
- 60013 [153]"ONPRESS ANY KEY TO START, OR I FOR INFO."
- 60014 [161]A$:[139]A$[178]""[167]A[178][171](A[178][171]A):[151]646,A[170]3:[137]60013
- 60015 [139]A$[179][177]"I"[167][142]
- 60016 [153]"LOADFORLENHEQUE PEEKOOK (null)RGANISERSYS WAS WRITTEN BY"
- 60017 [153]"(null)ETER (null)EIGHILLSYS DURING ATNUGUST 1990."
- 60018 [153]"(null)HANKS TO (null)UMSYS FOR THE CONTORIGINAL IDEASYS."
- 60019 [153]"(null)HANKS TO STR$AD SYSFOR HELPING TO WRITE THE"
- 60020 [153]"CONTINSTRUCTIONSSYS FOR THIS PROGRAM."
- 60021 [153]"PRINT(null)RESS ANY KEY TO START."
- 60022 [161]A$:[139]A$[178]""[167]60022
- 60023 [142]
-